perm filename TEST2.PCO[S1,ALS]1 blob
sn#411923 filedate 1979-01-24 generic text, type T, neo UTF8
SST P $MAINBLK 1 0 0 524 0
SST P AA000001 2 12 0 12 12
LOC 0
BGN 1,0,0
AA000001 ENT P,2,L1 AA 1 1 1
LOD I,2,8
LOD I,2,12
DVI
STR I,2,28
LOD I,2,8
LOD I,1,64
EQU I
FJP L2
LDA 1,13
LOC 10
CSP SIO
LCA 'A1 = M1'
LDC I,7
LDC I,7
CSP WRS
CSP EIO
UJP L3
L2 LAB
LDA 1,13
CSP SIO
LCA 'A1 M1'
LOC 20
LDC I,6
LDC I,6
CSP WRS
CSP EIO
L3 LAB
RET P
L1 DEF 32
SST P BB000002 2 8 0 16 8
LOC 0
BB000002 ENT P,2,L1 BB 1 1 1
LOD I,2,8
LOD I,2,12
MPI
STR I,2,28
LDA 1,13
CSP SIO
LCA 'THIS IS BB C1,C2 PASSED'
LDC I,24
LDC I,24
LOC 10
CSP WRS
CSP EIO
MST 2,12,12
LOD I,2,28
PAR I
LOD I,2,8
PAR I
LOD I,2,12
PAR I
CUP P,6,AA000001
LOC 20
RET P
L1 DEF 32
SST P CC000003 2 4 0 20 4
LOC 0
CC000003 ENT P,2,L1 CC 1 1 1
LDC I,100000
STR I,2,28
LOD I,2,8
LOD I,2,28
DVI
STR I,2,24
LDA 1,13
CSP SIO
LCA 'THIS IS CC M1 PASSED'
LOC 10
LDC I,22
LDC I,22
CSP WRS
CSP EIO
MST 2,8,8
LOD I,2,28
PAR I
LOD I,2,24
PAR I
CUP P,4,BB000002
LOC 20
RET P
L1 DEF 32
LOC 0
$MAINBLK ENT P,1,L3 $MAINBLK 1 1 1
LDA 1,19
CSP SIO
CSP REW
CSP EIO
LDA 1,18
CSP SIO
CSP RES
CSP EIO
LDA 1,13
LOC 10
CSP SIO
CSP REW
CSP EIO
LDA 1,12
CSP SIO
CSP RES
CSP EIO
LDA 1,13
CSP SIO
LCA 'THIS IS MM'
LOC 20
LDC I,10
LDC I,10
CSP WRS
CSP EIO
LDC I,800000
STR I,1,64
MST 2,4,4
LOD I,1,64
PAR I
CUP P,2,CC000003
LOC 30
RET P
L3 DEF 568
STP